home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0292.ZIP / GENEPROG.ARC / LISTING.PRG < prev    next >
Text File  |  1985-12-21  |  384b  |  16 lines
  1. * SUBROUTINE LISTING    3/23/85                   LISTING
  2. *
  3. SET DEVICE TO PRINT  
  4. USE GENE INDEX SNINDX
  5. ACCEPT "DO YOU WANT HARD COPY (Y OR N)? " TO QUERY
  6. IF QUERY="Y"
  7.     REPORT FORM PERSUM TO PRINT
  8.     EJECT
  9. ENDIF
  10. IF QUERY="N"
  11.     REPORT FORM PERSUM
  12. ENDIF
  13. SET DEVICE TO SCREEN
  14. RETURN
  15.  
  16.